home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh4x
/
sh46b.d64
/
ede 64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
36KB
|
854 lines
2 REM A. EDER
3 POKE808,225
4 DATA169,187,141,24,3,169,192,141,25,3,120,173,14,221,41,254,141,14,221
5 DATA173,15,221,41,254,141,15,221,169,2,141,6,221,169,0,141,7,221,169,255
6 DATA141,4,221,169,255,141,5,221,169,31,141,13,221,169,130,141,13,221,169
7 DATA65,141,14,221,141,15,221,88,169,96,141,149,192,141,156,192,96,169,3
8 DATA141,2,212,169,232,141,3,212,169,9,141,5,212,169,0,141,6,212,169,0,141
9 DATA9,212,141,10,212,234,234,169,36,141,12,212,169,165,141,13,212,169,3
10 DATA141,16,212,169,232,141,17,212,169,101,141,19,212,169,34,141,20,212
11 DATA234,169,65,141,4,212,141,18,212,169,17,141,11,212,234,165,15,141,24
12 DATA212,234,234,76,0,192,173,4,212,41,254,141,4,212,173,11,212,41,254,141
13 DATA11,212,173,18,212,41,254,141,18,212,96,1,1,120,72,138,72,152,72,172
14 DATA13,221,48,4,88,76,86,254,172,186,192,136,208,45,32,160,192,174,185
15 DATA192,202,208,3,174,32,193,189,66,193,141,0,212,141,7,212,141,14,212
16 DATA189,32,193,141,1,212,141,8,212,141,15,212,142,185,192,188,100,193,32
17 DATA136,192,140,186,192,173,252,7,73,1,141,252,7,88,76,188,254,169,71,141
18 DATA24,3,169,254,141,25,3,96,234,234,234,234,234,234,234,234,234,33,26
19 DATA29,29,32,32,34,39,29,29,29,32,32,26,26,26,19,19,39,39,29,32,39,26,32
20 DATA34,34,29,34,32,39,32,39,32,0,20,69,69,219,219,207,18,69,69,69,219,219
21 DATA20,20,20,137,137,18,18,69,219,18,20,219,207,207,69,207,219,18,219,18
22 DATA219,0,2,2,2,2,2,1,1,2,2,2,1,1,2,2,2,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0
23 FORN=0TO390:READEW:POKE49152+N,EW:NEXT
24 IF PEEK(43)=181 THEN:SYS49152:POKE53269,0
25 POKE3508,0:POKE43,181:POKE44,13:CLR
26 Z1=RND(-TI):SYS49227:DEFFNZU(EZ)=INT(RND(1)*(EZ-AZ+1))+AZ
27 DEFFNPR(SA)=1024+SA+ZE*40:DEFFNFA(SA)=55296+SA+ZE*40
28 CT=1:CF=1:CR=0:V=53248:SP=2040:GOTO741
29 ZE=ZE-1:FORN=0TO6STEP3
30 ZE=ZE+1:Z(N+2)=CR:IFCR=0THEN:Z(N+2)=FNZU(10)
31 Z(N+1)=FNZU(EZ):Z(N+3)=Z(N+1)*Z(N+2)
32 IFZ(N+2)>9THEN:POKEFNPR(SA+3),49:POKEFNFA(SA+3),FR%:Z(N+2)=Z(N+2)-10
33 IFZ(N+1)>9THEN:POKEFNPR(SA-1),49:POKEFNFA(SA-1),FR%:Z(N+1)=Z(N+1)-10
34 POKEFNPR(SA),(Z(N+1)+48):POKEFNFA(SA),FR%:POKEFNPR(SA+2),42:POKEFNFA(SA+2),FR%
35 POKEFNPR(SA+4),(Z(N+2)+48):POKEFNFA(SA+4),FR%
36 POKEFNPR(SA+6),61:POKEFNFA(SA+6),FR%:NEXTN:ZE=ZE-2:RETURN
37 POKEV+21,(PEEK(V+21)OR1):GOSUB105
38 POKEV+21,(PEEK(V+21)AND254):RETURN
39 FORN=0TO6:GETL$:NEXT:L$="":FE%=0
40 FORN=3TO9STEP3
41 Z$=STR$(Z(N)):ZI=LEN(Z$):I%=0:LO$=""
42 UH%=UH%+1:L$="":GETL$:IFL$=""ANDUH%=<UE%ANDFE%<1THEN42
43 IFUH%>UE%ORFE%>=1THEN49
44 IFASC(L$)<48ORASC(L$)>57THEN42
45 LO$=LO$+L$:I%=I%+1
46 IFUH%<UE%THEN:POKEFNPR(SA+7+I%),(VAL(L$)+48):POKEFNFA(SA+7+I%),FR%
47 IFI%<=(LEN(Z$)-2)THEN42
48 ZE=ZE+1:IFVAL(LO$)<>Z(N)THEN:FE%=FE%+1:GOSUB153
49 NEXTN
50 ZE=ZE-3:IFFE%<1THEN52
51 GOSUB90
52 IFUH%<UE%THEN54
53 GOSUB94:CL=CL+1
54 IFFE%<1ANDUH%<((BI%*UE%)/5)THEN:GOSUB98
55 RETURN
56 POKESP+3,38:POKESP+4,36:POKEV+6,X:POKEV+7,Y
57 POKEV+3,Y-38:POKEV+5,Y-38:POKEV+9,Y-15:POKEV+8,X+3
58 POKEV+21,(PEEK(V+21)OR30)
59 FORXH=X-3TOX+25:POKEV+2,XH:POKEV+4,XH:POKEV+8,2*X+8-XH:NEXTXH:RETURN
60 POKESP+3,38:POKEV+6,X:POKEV+7,Y
61 POKEV+2,X-3:POKEV+3,Y-38
62 POKEV+4,X-3:POKEV+5,Y-38
63 POKEV+21,(PEEK(V+21)OR14):RETURN
64 POKEV+21,(PEEK(V+21)AND224)
65 POKESP+4,PEEK(SP+4):POKESP+3,38
66 POKEV+6,X:POKEV+7,Y
67 POKEV+2,X+25:POKEV+3,Y-38
68 POKEV+4,X+25:POKEV+5,Y-38
69 POKEV+8,X-20:POKEV+9,Y-15
70 POKEV+21,(PEEK(V+21)OR30):RETURN
71 POKESP+4,37:POKESP+3,38
72 POKEV+6,X:POKEV+7,Y
73 POKEV+2,X-25:POKEV+3,Y-38
74 POKEV+4,X-25:POKEV+5,Y-38
75 POKEV+8,X+20:POKEV+9,Y-15
76 POKEV+21,(PEEK(V+21)OR30):RETURN
77 POKESP+4,36:POKESP+3,39
78 POKEV+6,X:POKEV+7,Y
79 POKEV+2,X+25:POKEV+3,Y-38
80 POKEV+4,X+25:POKEV+5,Y-38
81 POKEV+8,X-20:POKEV+9,Y
82 POKEV+21,(PEEK(V+21)OR30):RETURN
83 POKESP+4,37:POKESP+3,39
84 POKEV+6,X:POKEV+7,Y
85 POKEV+2,X-15:POKEV+3,Y+15
86 POKEV+4,X-15:POKEV+5,Y+15
87 POKEV+8,X+20:POKEV+9,Y-15
88 POKEV+21,(PEEK(V+21)OR30):RETURN
89 V=53248:SP=2040:POKEV+21,(PEEK(V+21)AND225):RETURN:REM EDE AUS
90 POKEV+39,2
91 POKESP,33:POKEV+1,(50+8*ZE):IF(24+8*SA)>254THEN:POKEV,255:GOTO93
92 POKEV,(24+8*SA)
93 GOSUB37:RETURN
94 POKEV+39,0
95 POKESP,42:POKEV+1,(50+8*ZE):IF(24+8*SA)>254THEN:POKEV,255:GOTO97
96 POKEV,(24+8*SA)
97 GOSUB37:RETURN
98 POKEV+39,9
99 POKESP,43:POKEV+1,(50+8*ZE):IF(24+8*SA)>254THEN:POKEV,255:GOTO101
100 POKEV,(24+8*SA)
101 POKEV+21,(PEEK(V+21)OR1)
102 FORM=0TO40:POKEV+29,(PEEK(V+29)OR1):POKEV+23,(PEEK(V+23)OR1):NEXTM
103 FORM=0TO30:POKEV+29,(PEEK(V+29)AND254):POKEV+23,(PEEK(V+23)AND254):NEXTM
104 GOSUB38:RETURN
105 SI=54272:FL=SI:FH=SI+1:W=SI+4:A=SI+5:H=SI+6:L=SI+24
106 FORM=1TO20
107 POKEL,15:POKEA,17:POKEH,17:POKEFH,19:POKEFL,137:POKEW,17
108 FORT=1TO50:NEXTT:POKEV+29,(PEEK(V+29)OR1):POKEV+23,(PEEK(V+23)OR1)
109 POKEW,0:POKEA,0:POKEH,0
110 POKEL,15:POKEA,17:POKEH,17:POKEFH,39:POKEFL,18:POKEW,17
111 FORT=1TO20:NEXTT:POKEV+29,(PEEK(V+29)AND254):POKEV+23,(PEEK(V+23)AND254)
112 POKEW,0:POKEA,0:POKEH,0:NEXTM:RETURN
113 POKEV+29,PEEK(V+29)OR128:POKEV+23,PEEK(V+23)OR128:POKEV+21,PEEK(V+21)OR128:RETURN
114 POKEV+29,PEEK(V+29)OR64:POKEV+23,PEEK(V+23)OR64:POKEV+21,PEEK(V+21)OR64:RETURN
115 POKEV+46,10:POKESP+7,50:POKEV+14,X:POKEV+15,Y:GOSUB113:RETURN
116 POKEV+29,PEEK(V+29)OR32:POKEV+23,PEEK(V+23)OR32:POKEV+21,PEEK(V+21)OR32:RETURN
117 POKEV+45,9:POKESP+6,51:POKEV+12,X:POKEV+13,Y:GOSUB114:RETURN
118 POKEV+44,11:POKESP+5,45:POKEV+10,X:POKEV+11,Y:POKEV+21,PEEK(V+21)OR32:RETURN
119 POKEV+45,13:POKESP+6,50:POKEV+12,X:POKEV+13,Y:GOSUB114:RETURN
120 POKEV+46,0:POKESP+7,50:POKEV+14,X:POKEV+15,Y:GOSUB113:RETURN
121 POKEV+46,4:POKESP+7,47:POKEV+14,X:POKEV+15,Y:GOSUB113:RETURN
122 POKEV+46,3:POKESP+7,49:POKEV+14,X:POKEV+15,Y
123 POKEV+21,PEEK(V+21)OR128:RETURN
124 POKEV+44,11:POKEV+45,1:POKESP+5,45:POKESP+6,44:POKEV+10,X:POKEV+11,Y
125 POKEV+12,X+25:POKEV+13,Y-10:POKEV+21,PEEK(V+21)OR96:RETURN
126 POKEV+46,1:POKESP+7,48:POKEV+14,X:POKEV+15,Y:POKEV+21,PEEK(V+21)OR128:RETURN
127 POKEV+46,8:POKESP+7,46:POKEV+14,X:POKEV+15,Y:GOSUB113:RETURN
128 POKEV+46,1:POKESP+7,48:POKEV+14,X:POKEV+15,Y:GOSUB113:RETURN
129 POKEV+44,1:POKESP+5,41:POKEV+10,X:POKEV+11,Y:POKEV+21,PEEK(V+21)OR32:RETURN
130 POKEV+45,10:POKESP+6,49:POKEV+12,X:POKEV+13,Y:POKEV+21,PEEK(V+21)OR64:RETURN
131 POKEV+44,1:POKESP+5,40:POKEV+10,X:POKEV+11,Y:GOSUB116:RETURN
132 POKEV+44,4:POKESP+5,47:POKEV+10,X:POKEV+11,Y:GOSUB116:RETURN
133 POKEV+45,1:POKESP+6,41:POKEV+12,X:POKEV+13,Y:GOSUB114:RETURN
134 POKEV+29,PEEK(V+29)AND31:POKEV+23,PEEK(V+23)AND31:REM SPRITES OHNE EDE AUS
135 POKEV+21,PEEK(V+21)AND31:RETURN
136 S=0:N=0:M=2112:X=120:Y=100
137 FORN=0TO62:READS:POKEM+N,S:NEXTN
138 IFM<3264THEN:M=M+64:GOTO137
139 RETURN
140 POKEV+40,1:POKEV+41,0:POKEV+43,1:POKEV+42,1:POKESP,33:POKESP+4,37
141 POKESP+3,39:POKESP+2,35:POKESP+1,34
142 POKEV+29,(PEEK(V+29)OR30):POKEV+23,(PEEK(V+23)OR30):RETURN
143 GOSUB29:GOSUB39:GOSUB89:GOSUB134
144 RC=0:GETS$:IFUH%>UE%ORFE%>0ANDS$<>"[135]"THEN:RC=1:GOSUB150
145 RETURN
146 CO=15:CS=15
147 POKE53280,CO:POKE53281,CS:PRINT CHR$(142)CHR$(147);:RETURN
148 GETS$:IFS$<"0"ORS$>"9"THEN148
149 RETURN
150 CM=CE(2):CX=2:FORN=3TO9:IFCE(N)>=CMTHEN:CM=CE(N):CX=N
151 NEXT:IFCM>=3ORCL>=5THEN:RC=2
152 RETURN
153 CE(Z(N-1))=CE(Z(N-1))+1:CE(Z(N-2))=CE(Z(N-2))+1:RETURN
154 DATA0,96,56,0,56,224,17,31,224,59,153,48,31,61,184,14,63,248:REM TEUFEL
155 DATA4,51,152,4,24,48,8,15,234,8,7,198,8,3,131,4,15,231,2,31,254,3,63,252
156 DATA1,254,252,0,252,124,0,62,252,0,31,248,0,31,240,0,124,62,0,56,28
157 DATA56,0,0,120,0,0,248,0,96
158 DATA252,0,254,127,7,158,112,255,139,48,255,136,31,255,248,31,128,252
159 DATA63,192,252,63,255,254,62,191,174,61,182,183,125,182,183,59,118,213
160 DATA59,118,213,27,50,214,25,186,166,13,154,172,4,146,40,2,73,80
161 DATA0,0,0,0,0,0,0,0,0,0,0,0,15,0,240,15,0,240
162 DATA15,0,240,0,0,0,0,255,0,0,255,0,0,0,0,0,0,0
163 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
164 DATA0,0,0,56,0,0,92,0,0,219,0,0,182,128,0,237,192,0
165 DATA83,96,0,86,248,0,21,184,0,11,96,0,2,192,0,2,128,0
166 DATA0,128,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,00
167 DATA0,0,0,0,0,28,0,0,58,0,0,219,0,1,109,0,3,183
168 DATA0,6,154,0,31,106,0,29,168,0,6,208,0,3,64,0,1,64
169 DATA0,1,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,00
170 DATA62,0,240,127,135,252,255,255,254
171 DATA255,255,255,255,255,255,251,187,223,243,185,207,119,155,223,119,217,207
172 DATA115,219,239,123,219,239,123,219,239,123,153,207,123,189,158,243,189,206
173 DATA247,185,158,231,187,60,195,11,28,193,137,8,128,0,0,0,0,0
174 DATA0,1,252,0,7,254,0,31,255,0,63,255,0,127,255,0,255,255
175 DATA7,255,239,15,255,206,63,255,158,63,255,158,127,251,156,127,247,190
176 DATA127,247,158,255,183,14,247,119,62,238,215,31,238,211,31,238,195,31
177 DATA108,198,62,204,206,28,204,88,24
178 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
179 DATA0,0,1,8,224,1,140,240,1,206,184,1,254,172,15,255,171
180 DATA255,255,107,255,255,27,255,174,7,255,172,15,255,164,15,255,128
181 DATA5,255,128,4,239,128,6,201,128,0,109,192,0,0,0,0
182 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,128,7
183 DATA49,128,15,115,128,29,127,128,53,255,240,85,255,255,213,255,255
184 DATA214,117,255,216,53,255,192,37,255,224,1,255,224,1,255,64,1
185 DATA246,192,1,146,0,3,182,0,0
186 DATA0,0,0,0,0,0,0
187 DATA2,0,0,36,0,0,79,0,2,88,3,193,112,15,241,240,28
188 DATA24,248,59,220,120,52,44,60,109,150,60,108,86,60,55,150,120
189 DATA 59,44,120,24,92,240,7,185,240,15,255,224,63,255,224,127,255
190 DATA128,192,0,0
191 DATA0,0,0,12,249,128,7,255,0,4,113,0
192 DATA9,36,128,8,32,128,12,113,128,15,255,128,15,175,128,25,220
193 DATA192,126,251,240,247,7,120,231,255,56,231,255,56,231,255,56,179
194 DATA254,104,67,254,16,1,252,0,3,254,0,5,141,0,9,84,128
195 DATA3,192,0,0,128,0,1,198,0,2,239,0,3,223,0,3
196 DATA230,0,3,192,0,6,0,0,0,224,0,1,240,0,3,248,0
197 DATA2,232,0,6,236,0,5,244,0,7,252,0,7,252,0,3,252
198 DATA0,1,250,96,2,101,147,5,10,12,0,0,0,0,0,12
199 DATA0,7,14,0,15,143,0,15,135,0,7,115,3,240,252,31,254
200 DATA252,63,255,252,127,255,180,127,255,120,127,254,120,191,254,48,159
201 DATA252,48,71,244,16,64,42,0,64,0,0,128,0,0,131,3,0
202 DATA100,132,128,24,120,0,0,0,0
203 DATA1,160,0,15,64,0,31
204 DATA128,0,55,192,0, 63,192,0, 63,128,24,61,128,60,27,192,126
205 DATA7,224,126,31,240,126,39,240,126,15,248,124,9,248,124,30,248
206 DATA120,63,248,248,63,240,240,63,241,224,63,227,192,31,207,0,63
207 DATA254,0,80,248,0
208 DATA0,0,0,0,0,0,0,0,0,0,0
209 DATA0,0,0,0,0,0,0,3,252,0,12,3,128,16,0,64,32
210 DATA0,0,64,0,0,64,240,0,135,254,0,159,255,129,191,255,247
211 DATA191,255,222,127,255,248,31,255,128,7,254,0,4,242,0,6,3,0
212 DATA0,0,0,0,0,48,0,0,72,0,0,134,0,0,143
213 DATA0,0,134,0,0,68,0,0,34,0,0,48,0,0,48,0,0
214 DATA24,0,62,12,129,255,206,127,255,254,15,255,255,255,255,255,15
215 DATA255,255,255,255,254,127,255,252,7,192,240,0,0,0
216 DATA7,192,0,31,254,0,63,255,192,63,255,240,31,111,248,31,7,252,207:REM SCHM
217 DATA131,252,39,195,252,87,243,248,63,255,240,11,255,192,15,255,248
218 DATA3,127,252,1,191,254,2,239,254,2,135,255,0,3,255,0,0
219 DATA255,0,0,30,0,0,0,0,0,0
220 DATA1,16,0,1,176,0
221 DATA1,240,0,3,248,0,10,74,0,5,244,0,11,186,0,7,252
222 DATA128,7,252,192,7,252,192,7,252,192,15,254,96,15,254,96,15
223 DATA254,96,15,254,224,15,255,192,15,255,0,7,252,0,3,248,0
224 DATA6,236,0,0,0,0
225 DATA0,224,224,1,241,240,3,255,248,7
226 DATA223,124,7,255,252,7,241,252,3,241,248,1,255,240,0,255,160
227 DATA0,48,112,0,239,248,1,31,252,0,111,254,0,147,254,0,125
228 DATA254,0,254,254,1,254,254,1,253,252,0,255,248,1,127,240,0,159,192
229 GOSUB146
230 PRINT"[149][146]"SPC(36)"[169][146][169]";
231 PRINT" [223][223][146]"SPC(34)"[169][146][169]"
232 PRINT" [223][223][146]"SPC(13)"[172][162][162][162][162][162][187]"SPC(12)"[169][146][169]"
233 PRINT" [223][223][146]"SPC(13)"[158][223] [146][169]"SPC(12)"[149][169][146][169]"
234 PRINT" [223][223][146]"SPC(28)"[169][146][169]"
235 PRINT" [223][223][146]"SPC(26)"[169][146][169]"
236 PRINTSPC(6)"[223][223][146]"SPC(24)"[169][146][169]":PRINT
237 PRINTSPC(15)"[172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
238 PRINTSPC(9)" [146] [161][154] [149][146][161]"
239 PRINT" [129][213][195][195][201] [149] [146] [194] [146] [161][154] [146][169][223] [149][146][161]"
240 PRINT" [129][194] [129][146][194] [149] [146][195][219][195] [146] [161][154] [206][205][206] [205] [206][205][206][149][146][161] [129][162][162][162][162][162][162]"
241 PRINT" [194] [129][146][194] [149] [146] [194] [146] [161][154] [206][205][206] [205] [205][206] [206] [149][146][161] [129] [146] "
242 PRINT" [194] [129][146][194] [149] [209][146] [161][154][206] [205] [205] [149][146][161] [129] [146] "
243 PRINT" [194] [146][169][129][203] [149] [146] [161] [149][146][161] [129] [146] "
244 PRINT" [194][169] [129][169] [146] [149] [146] [161] [149][146][161] [129] [144][146][194] [129] "
245 PRINT" [202] [169] [146] [149] [188][146][162][190] [146] [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146] [129] [144][146][194] [194][129] "
246 PRINT" [169] [170] [146] [149] [146]"SPC(19)"[129] [146] [144][194][129] "
247 PRINT" [169] [170][209] [146]"SPC(25)" [144][146][194] [129] "
248 PRINT" [170] [146][169]"SPC(25)" [144][146][194] [129] "
249 PRINT" [170][146][169] [150][169] [164][164][164][164][164][164][164][164][164][164][164][164][164] [223][146] [129][223][223][146] [144][194][129] "
250 PRINT" [146][169] [150][169] [206] [205] [223][146] [129][223][223][144][146][194][129] "
251 PRINT" [146][169] [150][169] [206] [205] [223][146] [129][223][223] "
252 PRINTSPC(6)"[150][169] [206] [205] [223][146] [129][223] "
253 PRINT" [150][169] [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183] [223][145][145]"
254 X=80:Y=190:GOSUB124:Y=215:FORX=225TO210STEP-1:Y=Y-1:GOSUB71:NEXTX
255 FORY=190TO154STEP-1:GOSUB71:NEXTY:GOSUB83:RETURN
256 GOSUB146
257 PRINTSPC(12)"[169][146]"SPC(8)"[169][146]"SPC(6)"[169][169]
258 [153]" NEWFREUSRUSRFREWAITNEW PRINT#nUSRFREPRINT#mnm nPOSRNDWAIT PRINT#nUSRPRINT#n m n";
259 [153]" COS WAITNEWPRINT#n"[166]6)"mnmn mnmn"[166]6)"m n
260 PRINT"[167] [188][146] [152]n m [190] [188][146] [152]m"SPC(9)"mn
261 [153]"ABS WAITINTPRINT#(null) INT WAITRND PRINT#(null) PRINT#(null)
262 PRINT"[161] [146][161] [181] [146][161] "
263 PRINT"[181] [182][190] [188][146] [187] [172][146] "
264 PRINT"[161] [146][161] [146][180] [158] [158] [146] [149] [169][146]q [175][185][162][185][175] [190] [188]
265 [153]"ABS WAITINTRNDVERIFY *WAIT WAIT VERIFY WAITSTEP COS LOGWAIT + WAITSGN";
266 [153]"THEN WAIT VERIFY WAIT COS LOGWAIT VERIFY WAIT GET WAITINT RND *
267 PRINT" [187] [172][149] [172][149][169] [146][181] [149] [146] [170] [146][180] [149] [146] [180] [182][146] [149][180]
268 [153]" USR VERIFY STEPWAITSTEPLOGCOS"[166]6)"RND *WAIT"[166]7)"INT WAITGET VERIFYSGN
269 PRINT"[154] [183][146][162][175][149] [146][169]"SPC(19)"[170] [146][180] [153][166][166][166]
270 [153]"CONT VERIFY CONTFREWAITNEWANDPOSNEWFREUSRTAB( LOGWAIT"[166]8)" WAIT PRINTSPC(SPC(
271 PRINT"[154] [149] [154] [188][146] [153][166][166][166][146] [165] [170]
272 [153]"CONT VERIFY CONT WAITGET PRINTSPC(SPC(SPC(WAIT INT ABS
273 PRINT"[154][183][184][162][185][149] [154] [164][175] [153][166][166][166][166][146] [161] [146][181]
274 [153]" VERIFY WAIT CONTUSR FREAND WAITGET +
275 PRINT" [149] [146]"SPC(9)"[154][187] [146]"SPC(6)" [170]
276 [153]" VERIFY WAIT"[166]10)"CONT WAITINT SGN ABS
277 PRINT" [149] [146]"SPC(9)"[154][170] [146][161] [181] [146][161]
278 [153]" PRINTSPC(SPC(SPC(VERIFYRND PRINTWAITSPC(SPC("[166]7)"CONTABS ABSWAIT PRINTSPC(SPC(SPC(WAIT GET WAITFN
279 PRINT" [153][166][166][166][166][166][166][166]"SPC(6)"[154][161] [170][146] [153][166][166][166][146] [149]
280 [153][166]15)"CONTSGN WAIT"[166]6)"RNDVERIFY *
281 X=90:Y=200:GOSUB132:Y=150:FORX=75TO150STEP.5:Y=Y+.1:GOSUB126:NEXTX:RETURN
282 GOSUB146
283 PRINT" "SPC(9)"[158][205][190] [188][146][206]
284 [153]" "[166]7)"SYSLENLENABS WAITSGNLENLENLENLEN
285 PRINT" "SPC(9)"[158][206][187] [172][146][205][175][162][183] [183][184][146][175] [185]
286 [153]" TOANDPOSNEWUSRTAB( USRWAITNEWPOSPOSANDANDSYSFREFRE COS LOGWAIT COS LOG
287 PRINT" [190] [188][190] [146][161] [182] [146][181]";
288 PRINT"[161]";:FOR Z=1 TO 33:PRINT" ";:NEXT
289 PRINT"[146] [187] [172]
290 [153]"INT";:[129] Z[178]1 [164] 33:[153]" ";:[130]
291 [153]"WAITINT VERIFYSGN
292 PRINT"[180]";:FOR Z=1 TO 33:PRINT" ";:NEXT
293 PRINT"[182][146] [149][181][146][165]
294 [153]"SGN";:[129] Z[178]1 [164] 20:[153]" ";:[130]
295 [153]"b ABSWAIT PRINTSPC(VERIFYGETWAITINT
296 PRINT"[181] [172][146][170] [146][180] [153][166][166]
297 [153]"+ ANDWAITFRE RND *WAITANDPOSAND
298 PRINT" [187] c[146] [158]h [184][185] [185][162][190] [188]
299 [153]" RND ABSWAIT SYSh PRINTNOT GETVERIFY ABSWAIT ABS WAITINT
300 PRINT" [162] [146] [153][168][168] [154][175][184] [149][181] [172][146] [180] [170]
301 [153]" NEW ABSWAIT CONTANDUSR ANDWAITFRE VERIFYABS WAITSGN SGN +
302 PRINTSPC(6)"[187] [149] [149] [146][180] [154][190] [172][146] u[184][146]i[149][170] [146][165][153]|[168][182] [146][181]
303 [153]" PRINTNOTNOTNOTSPC(WAIT RND*VERIFY NEWVERIFYSTEPWAITSTEPRND*WAIT CONT+ WAIT SYSj WAITkVERIFY+ WAITINTuFREWAITiRND *
304 PRINT" [153][166][166][146] [149][167] [169][146][169] [154][182] [146][165] [149][175][190] [146][161][158]j.[146]k
305 [153]" uFREWAITi VERIFY+ *WAIT PRINTNOTNOTSPC( CONTSGN WAIT VERIFYUSRFREAND *WAITUSRSYSFRE SGN +
306 PRINT" [158]j [146]ku[184][146]i[149][182] s [146][181] [154] [170][146] [153][166][168] [149][183][172][153][146][166][168]| [149][190][146][191][188]
307 [153]" SYSTAB( j.WAITkVERIFYGET ABSWAIT uFREWAITiCONT+ WAITPOS uFREWAITi uFREWAITi VERIFYLOG
308 PRINT"u[184][146]i [158][184][149][185] [146] [158]j [146]k [154][187] [188][146] [158]j [146]k j.[146]k
309 [153]"j.WAITk VERIFYANDCOS LOGWAIT CONT FREWAITAND PRINTNOT SYSNEW
310 PRINT" [183] [149][162][185][175] [146][190][187] [175][162][146] [154][188] [146][185][175] [153][166][166][166][168]
311 [153]" (null)NOTNOTNOT VERIFYRND*WAIT PRINTNOTNOT(null) CONTGET LOGON"
312 X[178]25:Y[178]230:[141]124:X[178]250:Y[178]190:[141]127:[142]
313 [141]146
314 [153]"SYSm POSFREWAITPOS n"[166]16)"TOANDPOSNEWNEWFREFREFREWAITNEWNEWPOSAND GET ";
315 [153]"WAIT SYSCOS(null) (null)LOGWAIT COS LOGWAIT PRINT# ";
316 [153]"SYSWAITTHEN WAITFNLENLEN + WAITINTPRINT#GETSYSPEEKPRINT#WAITABS";
317 [153]" SYSRNDMID$LEN(null)*WAIT ABS WAITGETPRINT# ";
318 [153]"SYSWAITn FRENEWWAITFRE m"[166]14)"+ ABSCOS LOG";
319 [153]"WAIT SYSb m *NEWNEWNEWNEWNEW WAITSGN ";
320 [153]"WAIT SYSb m GET PRINT# SGN WAIT RNDVERIFY *";
321 [153]"WAITANDANDFREFREFRE WAITINT POKE PRINT# SYS{{PRINT# INT WAITGET VERIFY
322 PRINT" [152] [151] [146]b [146]b [190] [188][146] [188] [172][146] [149][184][154][164]";
323 PRINT"[151] [152] [158]{{[152] [158]{[152] [150] [151][146]{[150] [151][146]{[150] [151][162][162][162][162][162] [146][180] [180] [149] [146][188][185][146][184][154][185][184][183][163] ";
324 PRINT"[151] [158]{[152] [150] [146][175] [153][166][166] [187][149] [172][146] [153][166][187] [172][149][146] [154][183] [175][162][146][184]";
325 PRINT"[151] [152] [158]{{[152] [146] [150][184][184][184][190] [188][153][146][166] [149] [146] [153][166]| [183][154][175][162] [149] [154] [164][146][184]
326 [153]" PRINT# WAIT PRINTSPC(SPC(ABS WAITINT VERIFY WAIT CONTPOS VERIFY CONT POSWAITFREUSRANDNEWAND
327 PRINT" [175][185][162][162][185][175][153][166][166] [161] [146][161] [154][185] [149] [146] [190] [188]
328 [153]"COS LOGWAIT RND*VERIFY RND WAITINT CONTPOS VERIFY WAIT THEN WAITFN
329 PRINT" [146][165] [149] [169][172][146] [154][185] [172][146][183][149] [146] [187] [172]
330 [153]" WAITSGN VERIFY WAITSTEP CONTCOS *WAITTAB( VERIFY WAIT FREVERIFYNEWWAITFRE
331 PRINT"[187] [172][146] [153][166][166][149] [153][146][166][154][190] [172][146][163] [149] [146] [153][166][166][166]
332 [153]" RND*VERIFYSGN+RND*WAIT PRINTSPC(SPC(SPC(SPC(VERIFY CONTINT *WAIT"[166]6)"VERIFY WAIT PRINTSPC(SPC(SPC(SPC(
333 PRINT" [166][166][149][180][170][146] [153][166][166][166][166][166] [154] [146] [153][166][166] [149]
334 [153]"PRINTSPC(SPC( VERIFYSGN+WAIT"[166]8)"CONTGET +WAIT PRINTSPC(SPC(| SPC(VERIFY
335 PRINT" [180][170][146] [153][166][166][166] [154][181] [182][146] [153][166][166][166][166][166][166]
336 [153]" VERIFYSGN+PRINTSPC(SPC(WAIT SPC(SPC( CONTSGN +WAIT PRINTSPC(SPC(SPC(SPC(SPC(
337 PRINT" [166][149][180][172][153][166][146]"SPC(7)"[154]
338 Y[178]210:[129]X[178]250[164]220[169][171].5:Y[178]Y[171].5:[141]127:[130]X:[142]
339 [141]146
340 [153]
341 [129]Z[178]1[164]2:[153]" DEF WAIT"[166]22)" ":[130]
342 [153]"DEF (null)WAIT WAIT RND"[166]11)" "
343 [153]"DEF WAIT"[166]16)"ANDANDAND
344 PRINT"[150] [146]"SPC(15)"[190] [188]
345 [153]"CLR SYS{ SYS{ WAIT"[166]6)"COS LOGWAIT COS LOG
346 PRINT"[156] [158] b [146]"SPC(6)" [146] [170] [146][180]
347 [153]"CLR POKEWAITANDlCLR POKEWAITANDlCLR SYS b SYS{ POKEWAIT{ WAIT ABS WAITINT + WAITSGN
348 PRINT"[156] [146] [151][180][156] [146] [151][180][156] [146][169]"SPC(6)" [146] [187] [172][149] [187] [172]
349 [153]"CLR WAIT b POKEWAIT{ WAITSTEP STEPnWAITINT ABSmPOSVERIFY POSWAIT WAITNEWVERIFY WAIT FRE
350 PRINT"[156] [146] b [146][169] [169]n[146][169] m[149] [146] [190] [188]
351 [153]"CLR SYSANDlCLR POKEWAITANDlCLR WAITSTEP WAIT VERIFY WAIT COS LOG
352 PRINT"[156] [158] [180][156] [146] [151][180][156] [152] [146][169] [151]no[183][183]p[183][183][183][183]p[183][183][149] [151][146]pm[182] [146][181]
353 [153]"CLR PRINT#q WAITSTEP POKEn SGN + CONTSTEP POKEWAIT+ + INT WAITGET
354 PRINT"[156] [152] [146][169] [151]n [149] [146] [182] [146][181]
355 [153]"CLR POKEWAITANDlCLR SYSANDlCLR PRINT#WAITSTEP POKEb VERIFY WAIT CONTSTEP WAIT VERIFY WAIT
356 PRINT"[156] [146] [151][180][156] [158] [180][156] [146][169] [151]b[149] [146] [154][169] [146] [149] [146][182] [146][190][149] [146][188] [146][181]
357 [153]"CLR WAIT"[166]8)"CONTSTEP WAIT"[166]6)"VERIFY STEP
358 PRINT"[156] [129] [156] [146][169] [169]nn[146][161] [154][169] [146] [181]mm[149] [146][169]
359 [153]"CLR FOR CLR WAITSTEP STEPnn WAITGETCONTSTEP WAIT mmVERIFY
360 PRINT"[156] [129]q [156][146][169] [169]nn[146][169] [154][169] [146] mm[149]
361 [153]"CLR FOR WAITSTEP WAIT CONTSTEP WAIT
362 PRINT"[156] [129] [146][169] [154][169]
363 X[178]170:Y[178]200:[141]128:X[178]233:Y[178]89:[141]130
364 Y[178]151:[129]X[178]230[164]135[169][171]1:[141]129:[130]X:[142]
365 [141]146
366 [153]:[153]:[153]
367 [153]" STOP";:[129] Z[178]1 [164] 39:[153]"TO";:[130]
368 [153]" (null)(null) (null)(null)
369 PRINT" [206] [205][206] [205]
370 [153]" (null) (null)(null) (null)
371 PRINT" [205] [205][206] [206]
372 [153]" (null) (null)(null) (null)
373 PRINT" [205][206] [205][206]
374 [153]" SYSSTEP";:[129] Z[178]1 [164] 29:[153]" ";:[130]
375 [153]"
376 PRINT" [146][169] [146][169] [146][169] [146][169] [146][169] [146][169]
377 [129]Z[178]1[164]4:[153]" WAIT WAIT WAIT WAIT WAIT WAIT ":[130]
378 [153]" WAIT STEP WAIT STEP WAIT STEP WAIT STEP WAIT STEP WAIT STEP
379 PRINT"[144][170] [158]";:FOR Z=1 TO 31:PRINT" ";:NEXT
380 PRINT"[146] [144][180]
381 [153]"+ SYS";:[129] Z[178]1 [164] 31:[153]" ";:[130]
382 [153]"STOP WAITSGN
383 PRINT"[170] [158]";:FOR Z=1 TO 31:PRINT" ";:NEXT
384 PRINT"[146] [144][180]
385 [153]" SYS STOPWAITuciuciSYS STOPWAITuciuciSYS
386 PRINTSPC(7)"[144]bwbbwb"SPC(9)"bwbbwb
387 [153]"POSPOSPOSPOSPOSPOSPOSjckjckPOSPOSPOSPOSPOSPOSPOSPOSPOSjckjckPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS";
388 Y[178]170:X[178]50:[141]118:[151]53275,[194](53275)[176]192
389 Y[178]155:X[178]125:[141]119:X[178]165:[141]115:X[178]225:Y[178]210:[141]71:[142]
390 CO[178]0:CS[178]11:[141]147
391 [153]"STOP POSWAITFREUSRTAB("[166]16)"TAB(USRFRENEW ";
392 [153]" WAITCOS EDE IST IN DER UBAHN STOPLOG ";
393 [153]" WAITCOS EINER SCHNELLEN STADT. STOPLOG ";
394 [153]" WAITCOS"[166]28)"LOG ";
395 [153]" WAITCOS"[166]30)"LOGCLOSECLOSECLOSECLOSE";
396 [153]" WAITGET"[166]6)" "[166]19)"STOPGET ";
397 [153]" WAIT * "[166]9)"STOP*"[166]10)" ";
398 [153]" WAITGET (null) "[166]10)"STOP(null)"[166]9)"GET ";
399 [153]" WAIT"[166]6)"m"[166]19)"m"[166]9)" ";
400 [153]" WAITGET"[166]7)"m"[166]19)"m"[166]8)"GET ";
401 [153]" WAIT"[166]9)"m"[166]19)"m"[166]8)" ";
402 [153]"WAITGET FORSTEP WAIT"[166]6)"CONTSTEP WAIT STOPGET";
403 [153]"WAIT FOR WAIT"[166]6)"CONT
404 PRINT" [129] [146][169] [146][169] [146]"SPC(6)"[154] [146][169] [146][169]
405 [129]Z[178]1[164]4:[153]" FOR WAIT FOR WAIT FOR WAIT"[166]6)"CONT WAIT WAIT ":[130]
406 [153]" FOR (null)WAIT STEP (null)WAIT STEP WAIT"[166]6)"CONT (null)WAIT CONTSTEP (null)WAIT CONTSTEP "
407 [153]" FOR WAIT"[166]6)"CONT
408 PRINT" [129] [146]q[129] [146]q[129] [146]"SPC(6)"[154] [146]q[154] [146]q[154]
409 [153]" FOR WAIT"[166]6)"CONT
410 FORZ=1TO2:PRINTSPC(6)"[144] [146]"SPC(7)" [146]"SPC(10)" [146]"SPC(7)" ":NEXT
411 Y=162:X=60:GOSUB119:X=110:GOSUB115:X=250:Y=214:GOSUB60:RETURN
412 GOSUB146
413 PRINTSPC(16)"[158]m [175][162][175] n"SPC(8)"[175][185][175]
414 [153]" "[166]8)"SYSCOS LOGWAIT"[166]8)"COS LOG
415 PRINT" [158][195][195][170] [146][180][195][195][195] [170] [146][180]
416 [153]" "[166]8)"SYSRND *WAIT"[166]8)"RND *
417 PRINTSPC(16)"[158]n [184][185][146][184] [162][184][184][184][146][162] [184][149] [146][184]
418 [153][166]8)"ANDNEWFREUSRFREWAITNEWANDSYSn b WAIT VERIFY
419 PRINTSPC(7)"[190] [188][146] [158]b[182] [146][181]
420 [153][166]6)"+ WAITSGN SYSb RND VERIFY POSWAITUSR
421 PRINTSPC(6)"[182] [146][181] [158]b [183][149] [146][180] [144]nmnm
422 [153][166]6)"+ WAITSGN"[166]7)"VERIFY WAITSGN STOPn nm m
423 PRINTSPC(7)"[187] [172][149][161] [169] [172][146][183]"SPC(11)"[144]m mn n
424 [153][166]8)"FRE VERIFYGET WAITSTEPFRE"[166]14)"STOPmnmn
425 PRINT" [129][169] [146] [169] [154][146][164][175][185][185]";
426 PRINT" [129] [146] [146] [149][161] [146] [129] [146] [146] [146] [154][146][175][185][162][129] [154][183][163][160][129] [154] [129] [154] ";
427 PRINT" [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] ";
428 PRINT" [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [164][129] [154][185][162][146][184][183]";
429 PRINT" [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [129] [154][175][185][162][129] [154][146][183][163] [129]
430 [153]"CONT FOR CONT FOR
431 PRINT"[144][171][129] [144][146]{[129] [144][146][179]
432 [153]" FOR WAITSTEP WAITSTEP
433 PRINT"[144][164][164][164]bwb[164][164][164][164][164][164][164]bwb[164][164][164][164][164]bwb[164][164][164][164][164][164][164]bwb[164][164][164][164][164][164]";
434 PRINT" njckn n jck n jck n njckn n
435 [129] Z[178]1 [164] 40:[153]"TAB(";:[130]
436 [129]XH[178]250[164]0[169][171]2:Y[178]65[170].1[172]XH:X[178]XH:[141]130:Y[178]206:X[178]250[171]XH:[141]131:[130]:[142]
437 CO[178]8:CS[178]8:[141]147
438 [153]
439 [153]"STOPm CONT WAIT STOPm IM HOTEL n CONTSTEP WAITSTEP"[166]6)"STOPn";
440 [153]" m CONT WAIT STOPm ZIMMER n CONTSTEP WAITSTEP"[166]6)"STOPn
441 PRINT" m [154] [146] [144]m[175][175][175][175][175][175][175][175]n [154][169] [146][169]"SPC(6)"[144]n
442 [153]" m"[166]32)"n
443 PRINT" m"SPC(14)"q"SPC(15)"[144]n
444 [153]" m"[166]13)"b"[166]14)"STOPn
445 PRINTSPC(6)"m[175][175][175][175][175][175][175][175][175][175][175][175]b[144][175][175][175][175][175][175][175][175][175][175][175][175][175]n
446 [153][166]6)"+"[166]11)"PRINT#qbPRINT#q"[166]12)"STOPSGN
447 PRINTSPC(6)"[170]"SPC(9)"jcc[177]cck"SPC(10)"[144][180]
448 [153][166]6)"+"[166]26)"SGN
449 PRINT" [193] [144][170]"SPC(7)" "SPC(12)"[144][180] [193]
450 [129]Z[178]1[164]2:[153]" WAIT STOP+"[166]7)" "[166]12)"STOPSGN ":[130]
451 [153]" VERIFY WAIT STOP+"[166]26)"SGN VERIFY
452 PRINTSPC(6)"[144][170]"SPC(6)"[149][172][162][162][162][162][162][162][162][162][162][162][162][187]"SPC(7)"[144][180]
453 [153][166]6)"+ VERIFYNEWNEWNEWNEW GET VERIFY VERIFY WAITGET NEWNEWNEWNEW STOPSGN
454 PRINTSPC(6)"[170] [149]po [152][169] [152] [152] [146] [149]po [144][180]
455 [153][166]6)"nUSRUSRVERIFYSQRlSTOPUSRPRINT#STEP STOPWAITUSRVERIFYSQRlSTOPUSRUSRUSRm
456 PRINT" n [156][169] [149] [156] [146] [144]m
457 [153]" n CLRSTEP VERIFY CLR WAIT STOPm
458 PRINT" n [156][169] [146][169] [149]q"SPC(11)"q [156] [146] [144]m
459 [153]" n CLRSTEP";:[129] Z[178]1 [164] 30:[153]" ";:[130]
460 [153]"WAIT STOPm
461 PRINT" n"SPC(36)"m
462 [153]"n
463 X=60:Y=190:GOSUB124:X=205:Y=150:GOSUB115:RETURN
464 GOSUB146
465 PRINT"
466 [153]" WAIT"[166]9)"STEP
467 PRINT"[149] [146] [146]"SPC(7)"[169]
468 [153]"VERIFY WAIT"[166]9)"STEP SGNui+
469 PRINT"[149] [146] [156] [146] [180][202][203][170]
470 [153]"VERIFY WAIT CLR WAIT SGN(null)(null)+
471 PRINT"[149] [144][146][186][175][149] [144][146][186][175][149] [146] [156] [146] [149] [156] [146] [180][206][205][170]
472 [153]"VERIFY STOPWAIT+ VERIFY STOPWAIT+ VERIFY WAIT"[166]11)"CLR WAIT VERIFY CLR WAIT SGN +
473 PRINT"[149] [146]"SPC(11)"[156] [146] [149] [156] [146] [144][180]
474 [153]"VERIFY WAIT"[166]11)"CLR VERIFY CLR WAIT STOPSGN
475 PRINT"[149] [146]"SPC(18)"[144]n m [180]
476 [129] Z[178]1 [164] 34:[153]"TAB(";:[130]
477 [153]"SGNTAB(TAB(TAB(TAB(TAB("[166]10)"NEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"[166]14)"STOPSGN
478 PRINTSPC(9)"[169][146][169] [146]
479 [153][166]8)"STEPWAITSTEP WAIT
480 PRINT"[144]cccccq";:FOR Z=1 TO 21:PRINT" ";:NEXT
481 PRINT"[158][146]q[144]cccccccccccc";
482 PRINT" [144][146]uci [144][146]uci
483 [153][166]8)"STEP WAIT STOPbwb"[166]11)"POKESTEP WAITSTEP";
484 [153][166]7)"STEPWAITSTEP STOPjc WAIT WAIT STOPjck
485 PRINTSPC(6)"[169][146][169] [146] [146]"SPC(13)"[151][169] [146][169]
486 [153]" q";:[129] Z[178]1 [164] 22:[153]" ";:[130]
487 [153]"SYSWAITq
488 PRINT" [144]h [144][146]uci [144][146]uci [144][146]t [151][169] [146][169]
489 [153]" STOPWAITbqb STOPWAITbqb
490 PRINT" [144]jck"SPC(14)"jck [151][169] [146][169]
491 [151]53275,[194](53275)[176]96
492 Y[178]128:[129]XH[178]0[164]100[169]2:X[178]XH:[141]131:X[178]250[171]XH:[141]133:[130]XH:[142]
493 [141]146
494 [153]"WAIT"[166]36)"DEF STEP";
495 [153]" (null)WAIT"[166]13)" "[166]15)"DEF ";
496 [153]" WAIT"[166]13)" "[166]15)"DEF ";
497 [153]" WAIT"[166]13)" "[166]12)" WAIT DEFSTEP ";
498 [153]" WAIT"[166]31)"CLOSEDEFSTEP STOPWAITSQRANDDEF ";
499 [153]" WAIT WAIT"[166]27)"STEP DEF STOPWAITTHEN DEF ";
500 [153]" DEFSTEP WAIT"[166]23)"STEP DEF ";
501 [153]" DEF WAIT"[166]20)"STEPSTEP SYS ";
502 [153]" DEF FORABSWAIT"[166]17)"DEFSTEP SYS STOPWAITSQRANDSYS ";
503 [153]" DEF FOR WAIT"[166]14)"STEPCONT CLR SYS STOPWAITTHEN SYS ";
504 [153]"STOPWAITFN DEF PRINT# WAIT"[166]11)"NOT PRINT# CONT STOPWAIT{CONT CLR STOPWAITSQRANDCLR SYS ";
505 [153]"STOPWAITo CONT PRINT# WAIT ANDANDAND SPC(SPC(SPC(WAIT PRINT# CONT CLR STOPWAITTHEN CLR SYS STOPWAITSQRANDSYS ";
506 [153]" CONT STOPWAIT{CONT PRINT# WAIT STEPWAITSTEP WAIT STOPLOG COS PRINT#CONT STOPWAIT{CONT CLR SYS STOPWAITTHEN SYS ";
507 [153]" STOPWAITANDl CONT PRINT# WAITSTEPSTEPWAITSTEP WAIT GET"[166]7)"CONT CLR STOPWAITSQRANDCLR SYS ";
508 [153]" WAIT STOPFN CONT STOPWAIT{CONT PRINT#WAITSTEP WAITq WAITq WAIT POSPOSPOSPOS CONT CLR STOPWAITTHEN CLR SYS STOPWAITSQRANDSYS ";
509 [153]" CONT WAITSTEP STOPPOSWAIT NEWWAIT GET STEPWAITSTEP WAIT CONTCLR SYS STOPWAITTHEN SYS ";
510 [153]"STOPWAITFN STOPWAITANDl CONT WAITSTEP"[166]11)"GET STEP WAIT CLR SYS ";
511 [153]"STOPWAITo WAIT STOPFN CONTWAITSTEP STEP WAIT"[166]7)" WAIT CLR SYS FOR SYS ";
512 [153]" WAITSTEP STEPWAITSTEP WAIT THENWAIT STOP+WAIT SGNWAIT CLR SYS FOR SYS ";
513 [153]" WAITSTEP STEPWAITSTEPSTOPTOTO TOTO WAIT THENWAIT PRINTSTEP WAIT CLRSYS FOR SYS ";
514 [153]" WAITSTEP WAITq WAITq WAIT THENWAIT PRINTSTEPWAITSTEP WAIT SYSFOR SYS ";
515 [153]" WAITSTEP WAIT PRINTSTEPWAITSTEP"[166]6)"WAIT FOR SYS ";
516 [153]" WAITSTEP STOP WAIT"[166]8)" WAIT WAIT PRINT DEFWAITqPRINT DEFWAITqPRINT WAIT FORSYS ";
517 [153]" WAITSTEP"[166]18)" WAIT PRINT WAIT SYS ";
518 [153]"WAITSTEP"[166]19)" WAIT STOP WAIT"[166]8)" ONON"
519 Y[178]205:X[178]20:[141]115:X[178]65:[129]Y[178]200[164]150[169][171]1:X[178]X[170].5:[141]118:[130]Y
520 [151]53275,[194](53275)[176]32:[142]
521 [141]146
522 [153]"(null)WAIT"[166]11)"
523 PRINT" [223][146]"SPC(10)" "SPC(19)"[169][223]";
524 PRINT" [223][146]"SPC(9)" "SPC(17)" [169] ";
525 PRINT" [146] [150][169][146]"SPC(28)" ";
526 PRINT" [150][169] [146]"SPC(25)"[169] ";
527 PRINT"[151] [150] [146]"SPC(24)"[169] ";
528 PRINT"[151] [159] b [151] [150] [146]"SPC(20)" [169][146][169] ";
529 PRINT"[151] [159] b [151] [150] [169][146]"SPC(17)" [154] b ";
530 PRINT"[151] [159] b[160][151] [156] [150] [146] [161][146] [150][161][146]"SPC(6)"[169] [154] b ";
531 PRINT"[151] [156][165][158] [156] [158] [156] [169][160][160][160][160][150][169] [169][169] [154] b ";
532 PRINT"[151] [156][165][158] [156] [158] [156] [158] [146][161][161][146] [172][187][172][187][146] [188][190][188][190][150][169] [129] ";
533 PRINT"[151] [159] b [151] [156] [146] [172][187][172][187][146] [188][190][188][190][156] [129] [146] [158] ";
534 PRINT"[151] [159] b [151] [156][165][146] [146] [158] [146][161][161][146] [146]"SPC(6)"[156][161][161][158] [129] [146] [158] [154] b ";
535 PRINT"[151] [159] b [151] [156][165][146] [146] [146]"SPC(11)"[156] [129] [154] b ";
536 PRINT"[151] [156] [146]"SPC(14)"[161][161][158] [129] [158] [129] [146] [154] b ";
537 PRINT"[151] [156][165][129] [156] [158] [156] [146]"SPC(14)" [129] [158] [129] [146] ";
538 PRINT"[151] [159] b [151] [156][165][129] q[156] [158] [156] [146]"SPC(17)"[129] ";
539 PRINT"[151] [159][160]b [151] [156] [129] [156] [146]"SPC(17)"[129] [154] b ";
540 PRINT"[151] [159] b [151] [146]"SPC(30)" [154] b ";
541 PRINT"[151] [146]"SPC(30)" [154] b ";
542 FORZ=1TO3:PRINT"[129] [151] [146]"SPC(30)" ";:NEXT
543 PRINT"[129] [151] [160]"
544 PRINT"[129] [151] [145][145]"
545 X=80:Y=200:GOSUB117:X=180:FORY=190TO210:X=X-1:GOSUB60:NEXTY:RETURN
546 GOSUB146
547 PRINT:PRINT
548 PRINTSPC(32)"[144][162][162][162][162][162][162]
549 [153][166]10)" "[166]15)"SYS(null) WAITSTEPSTOPGET
550 PRINTSPC(10)" "SPC(14)"[158][206] [144][161]
551 [153]" ORLENLENLEN^WAIT "[166]7)"CONT(null)LENLENRIGHT$ SYS(null) PEEK (null)STOPGET
552 PRINT" b[176]cib[146]"SPC(16)"[154]b b [158]n [144][161]
553 [153]" bb bbWAIT"[166]15)"CONTSTEP WAITFREFRE WAIT"[166]8)"STOPGET
554 PRINT" b[171]ckb[146]"SPC(15)"[154] [146][162][162] [146][169]"SPC(8)"[144][161]
555 [153]" bb CLOSEbWAIT"[166]7)"STEP WAIT STOPlWAIT SQRWAIT"[166]9)"GET
556 PRINT" [173]ccc[189][146]"SPC(7)" [146] [146]"SPC(16)"[144][161]
557 [153]" PKWWAIT"[166]7)"STEP WAIT FORPOSPOSPOSPOSPOSPOS"[166]7)"STOPGET
558 PRINT" [161]"SPC(8)" [158][146]q [146] [158][146]q [146] [129][161][146]n m[182][146]"SPC(6)"[144][161]
559 [153]" GET"[166]8)" WAITSTEP FORGETWAIT STOPTOTO TOTOFORABSWAIT"[166]6)"STOPGET
560 PRINT" [161] [169] [144][186][146] l[146] [129][169] [146] [144][161]
561 [153]" STEP WAIT WAIT"[166]6)"FOR SYSWAITqFOR WAIT SYSWAITqFOR WAIT STOPGET
562 PRINT" [146] [144][161] [144][146][164] [164][164] [146]"SPC(6)"[129] [156][169]
563 [153]" WAIT STOPTOSTEP WAIT STOPlCLRSTEPWAITSTEP STOPSQRWAIT CLR
564 PRINT" [169] [146] [158][146]qq [146] [156] [146] [144][164][164][164] [164][164][164] [156]
565 [153]"STEP WAIT WAIT CLRSTEP
566 PRINT" [158][146]qq [146][169] [158][146]qq [146][169] [156][169]
567 [153]" WAIT STEP WAIT STOP WAIT CLR SYSWAITqqCLR WAIT STOPz CLR SYSWAITqqCLR
568 PRINT" [146][169]"SPC(7)"[156]
569 [153]" STOP WAIT"[166]6)" WAIT"[166]10)"CLR CLR WAITSTEP
570 PRINTSPC(25)"[144] [146]"SPC(7)"
571 X[178]40:Y[178]208:[141]77:Y[178]50:[129]X[178]250[164]119[169][171]1:Y[178]Y[170].3:[141]130:[130]X
572 [129]X[178]120[164]60[169][171]1:Y[178]Y[171].4:[141]130:[130]X:[142]
573 CO[178]4:CS[178]8:[141]147
574 [153]" ";:[129] Z[178]1 [164] 38:[153]" ";:[130]:[153]
575 [153]" WAITm"[166]36)"n WAIT m"[166]10)"uccccccccccciWAIT"[166]11)"n ";
576 [153]" WAIT m"[166]9)"bGREENGROCERbWAIT"[166]10)"n ";
577 [153]" WAIT"[166]8)"STOPb jccccccccccckWAIT STOPb"[166]9)" ";
578 [153]" WAIT"[166]8)"STOPb"[166]19)"b"[166]9)" ";
579 [153]" WAIT"[166]7)"STOPc>qSTOPcqSTOPcqSTOPcqSTOPcSYSqSTOPcSYSqSTOPcc=c=ccqSTOP>c"[166]8)" ";
580 [153]" WAIT"[166]9)"q q q q SYSq q ui ui q"[166]10)" ";
581 [153]" WAIT"[166]9)"q q q q SYSq q )) )) q"[166]10)" ";
582 [153]" WAIT"[166]9)"q q q q SYSq q jk jk q"[166]10)" ";
583 [153]" WAIT"[166]9)"q q q q SYSq"[166]9)"q"[166]10)" ";
584 [153]" WAIT"[166]9)"q q q SYSq"[166]9)"q"[166]10)" ";
585 [153]" WAIT"[166]8)"q q q SYSq"[166]8)"q"[166]10)" ";
586 [153]" WAIT"[166]26)"q"[166]11)" ";
587 [129]Z[178]1[164]3:[153]" WAIT "[166]28)" ";:[130]
588 [153]" WAIT"[166]38)" WAIT"[166]13)"SYSANDANDANDANDANDAND"[166]19)" ";
589 [153]" WAIT SYSANDANDANDANDANDANDANDANDSYSSTEPWAITqqqqqSYSSTEPWAITANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND ";
590 [153]" WAIT SYSSTEPWAITqqqSYSWAIT STEPWAITqqqqqSYSSTEPWAITSTEP STEP WAIT"[166]7)"m ";
591 [153]" WAIT SYSSTEPWAITqqqqqSYSWAIT WAITSTEP STEPWAITSTEPqqqqqWAIT"[166]7)"m ";
592 [153]" WAIT nSYS WAIT"[166]9)"STEPWAITSTEPqqqqqqqWAIT"[166]7)"m ";
593 [153]" WAITn"[166]17)"SYS WAIT"[166]8)"m ";
594 [153]"WAIT ";:[129] Z[178]1 [164] 38:[153]" ";:[130]:[143] PRINT
595 X[178]75:Y[178]195:[141]124:X[178]170:Y[178]210:[141]77:[142]
596 CO[178]2:CS[178]14:[141]147
597 [153]"CONT ";:[129] Z[178]1 [164] 38:[153]" ";:[130]:[153]
598 [153]" WAIT"[166]38)" WAIT"[166]11)"ucccccccccccccciWAIT"[166]11)" ";
599 [153]" WAIT"[166]11)"bEISEN SCHMIEDTbWAIT"[166]11)" ";
600 [153]" WAIT"[166]11)"jcccccccccccccckWAIT"[166]11)" ";
601 [153]" WAIT"[166]38)" WAIT"[166]9)"(null)LENLENLENLENLENLENLENLENLENLENLENLENRIGHT$"[166]15)" ";
602 [153]" WAIT"[166]9)"PEEK PREISE PEEK"[166]15)" ";
603 [153]" WAIT"[166]9)"PEEK PEEK"[166]15)" ";
604 [153]" WAIT"[166]9)"PEEK PEEK"[166]6)"VERIFY(null)"[166]8)" ";
605 [153]" WAIT"[166]9)"PEEK PEEK"[166]5)"CLR WAIT"[166]7)" ";
606 [153]" WAIT"[166]9)"MID$LENLENLENLENLENLENLENLENLENLENLENLEN(null) CLRSTEP (null)WAIT"[166]6)" ";
607 [153]" WAIT VERIFYSTEP WAIT"[166]16)"CLRSTEP WAIT ";
608 [153]" WAIT VERIFYSTEP WAIT LISTSTEP WAIT DEFSTEP WAIT CLRSTEP WAIT ";
609 [153]" WAIT VERIFY q q q LISTSTEP DEF WAIT+CLR WAITSGN ";
610 [153]" WAIT VERIFY LIST DEF STOPWAITqDEF STOPWAITqDEF WAIT VERIFY WAIT"[166]8)" ";
611 [153]" WAIT VERIFY ccccc LIST ucci DEF WAIT VERIFY WAIT"[166]8)" ";
612 [153]" WAIT VERIFY WAIT LIST b b DEF WAIT VERIFY WAIT"[166]8)" ";
613 [153]" WAIT VERIFY WAIT LIST b b DEF WAIT VERIFY WAIT"[166]8)" ";
614 [153]" WAIT VERIFY LIST jcck DEF WAIT VERIFY WAIT"[166]8)" ";
615 [153]" WAIT ANDVERIFY JUNO LIST DEF WAITANDANDANDANDANDVERIFY WAITANDANDANDANDAND ";
616 [153]" WAIT n VERIFY LIST MIELE STOPWAITLOG COS VERIFYucPOSWAITci m ";
617 [153]" WAIT n STOPUSR USR LIST WAIT"[166]17)"m ";
618 [153]" WAITn"[166]11)"STOPq q"[166]19)"m ";
619 [153]"WAIT ";:[129] Z[178]1 [164] 38:[153]" ";:[130]
620 [151]53275,[194](53275)[176]64:X[178]228:Y[178]176:[141]133
621 [129]X[178]250[164]80[169][171]1:Y[178]120[170].2[172]X:[141]122:[130]:[142]
622 CO[178]0:CS[178]5:[141]147
623 [153]"STOP IM KINO ";
624 [129]Z[178]1[164]6:[153]:[130]
625 [153][166]11)"STOP(null)"
626 [153][166]25)"STOPSTEPWAITSTEP"
627 [153][166]6)"STOP(null) AND WAIT"
628 [153][166]13)"STOP "
629 [153][166]16)" "
630 [153][166]11)"(null)"[166]6)"PEEK )(null) "
631 [153][166]18)"MID$LENLENLEN "
632 [153][166]22)" "
633 [153][166]22)" "
634 [153][166]21)"LOGPOSPOSPOSWAITCOS
635 POKE53275,PEEK(53275)OR254
636 X=40:Y=198:GOSUB115:X=130:Y=200:GOSUB124:X=250:Y=198:GOSUB60:RETURN
637 GOSUB146:REM BAU KOALA
638 PRINT" ";:FOR Z=1 TO 34:PRINT"[175]";:NEXT:PRINT
639 PRINTSPC(2);:FORZ=1TO18:PRINT"[206][205]";:NEXT:PRINT
640 PRINTSPC(2);:FORZ=1TO18:PRINT"[205][206]";:NEXT:PRINT
641 PRINT" [183][183][183][183][183][149][208][208][183][183][183][183][183][183][183][183][183][183][183][183][183][208][183][214][183][207][183][183][183][183][183][183][183][183][183]
642 [153][166]8)"VERIFY++"[166]13)"+(null) (null)SGN
643 PRINTSPC(8)"[149][170][170]"SPC(13)"[170][205] [206][180]
644 [153]"ANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRWAIT"[166]5)"+CLOSE(null) SGN"
645 [153]"SQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRWAIT +(null) (null)SGN"
646 [153]"ANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRWAIT +(null) (null)SGN"
647 [153]"SQRANDSQRANDWAIT VERIFY++"[166]8)"SQRANDSQRWAIT + (null) SGN"
648 [153]"ANDSQRANDSQRWAIT STOP(null)"[166]8)"ANDSQRANDSQRWAIT +(null) (null)SGN"
649 [153]"SQRANDSQRANDWAIT VERIFY(null) (null)"[166]6)"SQRANDSQRANDWAIT +(null) (null)SGN"
650 [153]"ANDSQRANDSQRWAIT VERIFY(null) (null) ANDSQRANDSQRWAIT + (null) SGN"
651 [153]"SQRANDSQRANDWAIT STOPUSRUSRUSRUSRUSRUSRUSR SQRANDSQRANDWAIT +(null) (null)SGN"
652 [153]"ANDSQRANDSQRWAIT ANDSQRANDSQRWAIT +(null) (null)SGN"
653 [153]"SQRANDSQRPOSWAIT SQRANDSQRANDWAIT + (null) SGN"[166]8)"SQR"
654 [153]"ANDSQRANDSQRWAIT"[166]14)"ANDSQRANDSQRWAIT +(null) (null)SGN"[166]8)"ANDSQR"
655 [153]"SQRANDSQRANDWAIT"[166]14)"SQRANDSQRANDWAIT +(null) (null)SGN"[166]8)"SQRANDSQR"
656 [153]"ANDSQRANDSQRWAIT"[166]14)"ANDSQRANDSQRWAIT + (null) SGN"[166]8)"ANDSQRANDSQR";
657 [129]Z[178]1[164]2:[153]"SQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRAND";
658 [153]"ANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQR";:[130]
659 [153]"SQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRAND";
660 X[178]60:Y[178]160:[141]120:X[178]160:Y[178]200:[141]77:X[178]215:[129]XH[178]160[164]80[169][171]10
661 [129]Y[178]XH[164]XH[171]20[169][171]2:[141]117:[130]:[129]Y[178]XH[171]20[164]XH[171]10:[141]117:[130]:[130]:[142]
662 [141]146
663 [153]
664 [153]"";:[129] Z[178]1 [164] 33:[153]"AND";:[130]:[153]
665 [153]"<><><><v><><><><><><><><><><><><>
666 PRINT"[144] [146][183]pn[183]mo[183][183][183][183][183][183][183][149]T[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
667 [153]" +m nSGN"[166]7)"VERIFYb
668 PRINT" [170] v [180]"SPC(7)"[149]S"SPC(14)"[158][169]
669 [153]" +n mSGN"[166]6)"VERIFYn m"[166]12)"SYSSTEP
670 PRINT" [170]m n[180] [149]n m"SPC(10)"[158][169] [169]
671 [153]" + (null) SGN STOPTAB(TAB(TAB(TAB(TAB(TAB(TAB("[166]8)"SYSSTEP (null)
672 PRINT" [170][206] [205][180] "SPC(7)"[158][169] [223]";
673 PRINT"[175][186][146] [170][205] [206][180]
674 [153]"SQRANDSQRWAIT + v SGN FORSTEP
675 PRINT"[175][186][175][186][146] [170]n m[180] [129][169][169]
676 [153]"SQRANDSQRANDSQRWAIT+m nSGN FORSTEP
677 PRINT"[175][186][175][186][175][186][146] v [180][129][169]
678 [153]"SQRANDSQRANDSQRANDSQRWAIT mFORSTEP
679 PRINT"[175][186][175][186][175][186][175][186][146] [169][146][169][169][146][169]
680 [153]"SQRANDSQRANDSQRANDSQRANDSQRWAIT STEPWAITSTEP
681 PRINT"[175][186][175][186][175][186][175][186][175][186][146][169]
682 [153]
683 [153]" ANDSQRANDSQRANDSQRWAIT WAITSTEP
684 PRINT" [175][186][175][186][175][186][175][186][146] [146][169]
685 [153]" ANDSQRANDSQRANDSQRANDSQRANDSQRWAIT STOPucinUSRUSRUSRUSRpUSRUSRVERIFYFREFRE
686 PRINT" [175][186][175][186][175][186][175][186][175][186][175][186][146] [144]bwb [170]
687 [153][166]15)"MID$LEN(null) +ON"
688 X[178]220:Y[178]140:[141]121:X[178]145:Y[178]100:[141]124:[142]
689 [141]146
690 [153][166]7)"";:[129] Z[178]1 [164] 32:[153]"TO";:[130]:[153]
691 [153][166]6)"<><><><><><><><><><><><><><><><><>";
692 [153][166]7)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(pnmoTAB(TAB(TAB(TAB(TAB(oTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
693 PRINT" [186][175][186][146]"SPC(10)"[170]mn[180] [180]
694 [153]" ANDSQRANDSQRANDSQRWAIT"[166]7)"+nmSGN SGN
695 PRINT" [186][175][186][175][186][175][186][146]"SPC(6)"[170]mn[180] [180]
696 [153]" ANDSQRANDSQRANDSQRANDSQRWAIT +(null)(null)SGN SGN
697 PRINT" [186][175][186][175][129][169] [223][146][170][205][206][180] [151][223] [146][169]
698 [153]" ANDSQRANDSQRANDFOR ANDSQRPOKEWAIT(null) FOR WAIT +(null)(null)SGNSTOP(null) POKE WAIT
699 PRINT" [186][175][186][175][186][129] [186][175][146] [151]m [129] [151][146]m[170]mn[180][144][182][146] [151][188][190][146] [158][169]
700 [153]" ANDSQRANDSQRANDFOR ANDSQRWAIT POKEmFOR WAIT +nmSGNSTOPABSWAIT SYSSTEPSTEP
701 PRINT"[186][175][186][175][186][175][186][186][129] [176]ccc[174] [146] [170]mn[180][144][182][146] [158][169] ";
702 PRINT"[175][186][175][186][175][186][175][186][129] b cb [151][146]m[144]pom[180][144][182]
703 [153]"SQRANDSQRANDSQRANDWAIT FOR b b
704 PRINT"[175][186][175][186][175][186][146] [129] [171]ccc[179] ucciuci [146]"SPC(7)"[158][169]
705 [153]"SQRANDSQRANDSQRANDWAIT FOR /cccEXP FRE FREFRE FRE WAITWAIT WAITSTEP SYSSTEP STEP
706 PRINT"[175][186][175][186][175][186][146] [129][169] [146] [146] [158][169]
707 [153]"SQRANDSQRANDSQRANDWAIT FOR STOPWAITuccccccccccccciFOR WAIT WAIT SYSSTEP
708 PRINT"[175][186][175][186][175][186][175][186][175][186][129]cccccccccccq[144][146]b[129] [151][146]m [129] [158][169]
709 [153]"SQRANDSQRANDSQRANDSQRANDSQRANDSQRSTOPWAITccccccccccck POKEmFOR SYS ";
710 [153]"ANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRWAIT"[166]10)"POKEm SYSSTEP ";
711 [153]"SQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRWAIT"[166]10)"POKEm m
712 PRINT"[175][186][175][186][175][186][175][186][175][186][175][186][175][186][146]"SPC(10)"[151]m m
713 [153][166]25)"m m
714 Y=195:FORXH=47TO225STEP5:X=XH:GOSUB65:X=XH-47:GOSUB131:NEXTXH:X=225
715 GOSUB77:FORX=225TO240:Y=Y+1:GOSUB131:NEXTX:RETURN
716 GOSUB146
717 PRINT" [158][146]"SPC(12)" [146]"SPC(13)"[169][146][169]
718 [153][166]6)"WAIT"[166]11)" WAIT"[166]12)"STEPWAITSTEP
719 PRINTSPC(7)"[146]"SPC(10)" [146]"SPC(11)"[169][146][169]
720 [153][166]8)"WAIT"[166]9)" WAIT"[166]10)"STEPWAITSTEP
721 PRINTSPC(9)"[146]"SPC(8)" [146]"SPC(9)"[169][146][169]
722 [153]:[153]
723 [153][166]8)"FOR*NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWRND"
724 [153][166]8)"GET(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)FORWAITGET"
725 [153]"VERIFYNEWNEWNEWRND FORGET(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)FORWAITGET"[166]6)"VERIFY ABSWAIT *NEWNEWNEW";
726 [153]"CONT VERIFYWAITGET FORGET(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)FORWAITGET"[166]6)"VERIFY WAIT PEEK ABSWAIT GETCONT ";
727 [153]" VERIFYWAITGET FORGET(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)FORWAITGET VERIFYMID$=(null) WAITLEN(null)LENABSWAIT GETCONT ";
728 [153]" POKE*VERIFYWAITGET FORGET(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)FORWAITGET VERIFY(null) (null)WAIT PEEK ABSWAIT GETCONT (null)(null)";
729 [153]" POKE*VERIFYWAITGET FORGET(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)FORWAITGET VERIFYPEEK ABSWAIT GETCONT(null) (null)";
730 [153]"POKE***VERIFYWAITGET FORLOGNEWNEWNEW NEWNEWNEWNEWNEW NEWNEWNEWWAITCOS VERIFYPEEK ABSWAIT GET (null)CONT ";
731 [153]"POKE**WAITSTEPVERIFYGET"[166]8)"FOR WAIT WAIT"[166]8)"VERIFYb ABSWAIT GETWAIT ";
732 [153]"POKE*WAITSTEPVERIFYSTEPWAITSTEP"[166]6)"* FOR WAIT WAIT VERIFY WAITGET * VERIFYb ABSWAIT WAIT ";
733 [153]"POKEWAITSTEPVERIFYSTEPWAITSTEP FORSTEP WAITNEW WAITNEW VERIFY WAITGETFORSTEP WAIT VERIFYWAIT";
734 [153]"VERIFYSTEPWAITSTEPSTEPWAIT FORSTEP VERIFY FOR WAIT STEP VERIFY FOR WAIT VERIFYWAIT";
735 [153]"WAITSTEPSTEP WAIT"[166]6)"FORGETVERIFY+ SGN FORGETWAIT"[166]8)"GETVERIFY+ SGN FORGETWAIT"[166]6)" VERIFYWAIT";
736 [153]"ABS WAIT"[166]6)"FORGETVERIFY+FREFRESGN FORGETWAIT"[166]8)"GETVERIFY+FREFRESGN FORGETWAIT"[166]6)" WAITINT";
737 [153]"ABS WAIT FORSTEPWAITSTEPVERIFYpUSRUSRo FORWAIT"[166]6)"STEPWAITSTEPVERIFYpUSRUSRo FORWAIT WAITINT";
738 [153]"ABS WAITSTEP"[166]7)"VERIFY+ SGN"[166]11)"+ SGN"[166]8)" WAITINT";
739 [153]"ABSSTEP"[166]36)"(null)INTONON"
740 [142]
741 [141]146:[153] [199](14)[199](158)[199](8)
742 [153][163]10)"VALINMALEINS":[153][163]18)"IST ANGESAGT !"
743 [153][163]2)"LENONCEPT AND DESIGN BY ATNURELIUS VALDER"
744 [153][163]13)"6551 PEEKOCKENAU":[153][163]1)"(LEN) 1988 BY (null)ARKT & (null)ECHNIK (null)ERLAG ATNCHR$"
745 [141]89:[141]140:[141]136:[141]140
746 [153]"LOAD(null)EIN (null)AME IST:"
747 [153][163]25)"*NEWWAIT *WAITSIN *NEW":[153][163]25)"LOGWAIT GET SGN LOG"
748 [153][163]25)"*WAIT GET SGN *":[153][163]25)"LOGWAITNEW LOGSINWAIT LOGWAITNEW"
749 X[178]90:[129]Y[178]120[164]200:[141]60:[130]Y
750 [141]56:[151]2044,36:[129]X[178]90[164]170:[141]65:[130]X:[141]77
751 [153][163]3)"SYS(null)PIELANLEITUNG?":[153][163]3)"MID$A ODER NEIN? (J/N)":S$[178]""
752 [161]S$:[139]S$[178]""[167]752
753 [139]S$[178]"MID$"[176]S$[178]"J"[167]:[137]811
754 [158]49420:[158]49312
755 [141]89:[141]229:ZE[178]20:SA[178]14:AZ[178]1:EZ[178]12[172]CF:UH%[178]0:UE%[178]1300[172]CT:FR%[178]0:BI%[178]1
756 [141]143:[145]RC[137]755,850
757 [141]256:ZE[178]2:SA[178]29:BI%[178]2:FR%[178]1:[141]143:[145]RC[137]755,850
758 [141]282:ZE[178]5:SA[178]6:BI%[178]3:FR%[178]0:[141]143:[145]RC[137]755,850
759 [141]313:ZE[178]2:SA[178]11:BI%[178]4:FR%[178]1:[141]143:[145]RC[137]755,850
760 [141]339:ZE[178]2:SA[178]18:BI%[178]5:FR%[178]1:[141]143:[145]RC[137]755,850
761 [141]89:[141]716:ZE[178]9:SA[178]11:AZ[178]1:EZ[178]16[172]CF:UH%[178]0:UE%[178]1200[172]CT:FR%[178]1:BI%[178]1:FE%[178]0
762 [141]143:[145]RC[137]761,850
763 AZ[178]1:EX[178][165]ZU(3):[139]EX[177]2[167]:[141]802
764 [141]144:[145]RC[137]761,850
765 [139]EX[177]2[167]773
766 [141]464:ZE[178]6:SA[178]8:BI%[178]2:FR%[178]1:[141]143
767 [151]53275,[194](53275)[175]159
768 [141]144:[145]RC[137]761,850
769 [141]493:ZE[178]2:SA[178]14:BI%[178]3:FR%[178]1:[141]143
770 [151]53275,[194](53275)[175]223
771 [141]144:[145]RC[137]761,850
772 [141]521:ZE[178]2:SA[178]17:BI%[178]4:FR%[178]1:[141]143:[145]RC[137]761,850
773 [141]437:ZE[178]10:SA[178]15:BI%[178]5:FR%[178]1:[141]143:[145]RC[137]761,850
774 [158]49152:[158]49227:[141]89:[141]546:ZE[178]3:SA[178]10:AZ[178]0:EZ[178]18[172]CF:UH%[178]0:UE%[178]1500[172]CT
775 S$[178]"":[161]S$:[139]S$[178]""[167]775:[143] PAUSE PARKPLATZ
776 [158]49420:[158]49312
777 FR%[178]1:BI%[178]1:[141]143:[145]RC[137]774,850
778 [141]637:ZE[178]8:SA[178]29:BI%[178]2:FR%[178]6:[141]143:[145]RC[137]774,850
779 AZ[178]1:EX[178][165]ZU(4):[139]EX[177]2[167]:[141]808
780 [141]144:[145]RC[137]774,850
781 [139]EX[177]2[167]784
782 [141]662:ZE[178]17:SA[178]29:BI%[178]3:FR%[178]2:[141]143:[145]RC[137]774,850
783 [141]689:ZE[178]6:SA[178]29:BI%[178]4:FR%[178]0:[141]143:[145]RC[137]774,850
784 [141]622:ZE[178]3:SA[178]5:BI%[178]5:FR%[178]1:[141]143
785 [151]53275,[194](53275)[175]1
786 [141]144:[145]RC[137]774,850
787 [141]89:[141]716:[153][199](19);"":[153][163]11)"IHR SEID"
788 [153][163]12)"KURZ VOR":[153]"ONON":[153][163]12)"DEM ZIEL!":[129]XH[178]0[164]2000:[130]
789 [141]89:[141]716:ZE[178]9:SA[178]11:AZ[178]2:EZ[178]19[172]CF:UH%[178]0:UE%[178]500[172]CT:FR%[178]1:BI%[178]2:FE%[178]0
790 X[178]55:Y[178]200:[141]118:Y[178]150:X[178]247:[141]119
791 [141]143:[145]RC[137]787,787
792 [141]89:[141]716:[153][199](19);"":[153][163]11)"NUR NOCH"
793 [153][163]12)"DREI":[153]"ONON":[153][163]12)"AUFGABEN!":[129]XH[178]0[164]2000:[130]
794 [141]89:[141]716:ZE[178]9:SA[178]11:AZ[178]5:EZ[178]19[172]CF:FR%[178]1:BI%[178]4
795 X[178]55:Y[178]200:[141]118:Y[178]150:X[178]247:[141]119:X[178]85:Y[178]150:[141]120:[141]29:[141]39
796 [139]UH%[177][178]UE%[176]FE%[177]0[167]:X[178]50:Y[178]180:[141]120:[129]XH[178]0[164]300:[130]:[151]53269,[194](53269)[175]223
797 [129]XH[178]0[164]900:[130]:[141]89:[141]134
798 [141]144:[145]RC[137]761,850
799 [141]89:[141]716:[153][199](19);"":[153][163]10)"AUFLOESUNG:"
800 [153][163]11)"STOPUEBUNG":[153][163]10)"MACHT DEN":[153][163]13)"MEISTER!"
801 [129]XH[178]0[164]2500:[130]:[137]850
802 [141]365:ZE[178]5:SA[178]26:BI%[178]2:FR%[178]0:[141]143
803 [151]53275,[194](53275)[175]63
804 [141]144:[145]RC[137]807,807
805 [141]390:ZE[178]4:SA[178]15:BI%[178]3:FR%[178]0:[141]143:[145]RC[137]807,807
806 [141]412:ZE[178]3:SA[178]1:BI%[178]4:FR%[178]6:[141]143
807 [142]
808 [141]573:ZE[178]15:SA[178]28:BI%[178]3:FR%[178]7:[141]143:[145]RC[137]810,810
809 [141]596:ZE[178]8:SA[178]12:BI%[178]4:FR%[178]6:[141]143
810 [151]53275,[194](53275)[175]191:[142]
811 [141]89:CO[178]11:CS[178]11:[141]147:[153] [199](14 );
812 [153]:[153]:[153]
813 [153]" ede SYSIST AUF DER sUCHE NACH DEM gE-
814 PRINT" HEIMNIS DES eINMALEINS. uM IHM ZU HEL-
815 [153]" FEN, MUSST dU DIE aUFGABEN IM bILD DER
816 PRINT" rEIHE NACH RICHTIG LOESEN. wENN dU DAS
817 [153]" IN DER VORGEGEBENEN zEIT SCHAFFST,
818 PRINT" KOMMST dU EIN bILD WEITER, SO GEHT ES
819 [153]" VOM lAND IN DIE sTADT, WO DIE lOESUNG
820 PRINT" DES eINMALEINS ZU FINDEN IST.
821 [153]" eINGEGEBENE zAHLEN LASSEN SICH NICHT
822 PRINT" MEHR KORRIGIEREN. bEI EINEM fEHLER
823 [153]" SPRINGT DER fEHLERTEUFEL, WENN dU ZU
824 PRINT" LANGSAM BIST, ERSCHEINT DIE sCHNECKE
825 [153]" UND ede SYSWIRD ZURUECKGESCHICKT. lIEGST
826 PRINT" dU GUT IM rENNEN, WIRD EIN uHU SICHT-
827 [153]" BAR.
828 PRINT:PRINT
829 PRINTSPC(6)"vIEL sPASS UND gLUECK!
830 [153]:[153]
831 [153][166]6)"(null)EITER MIT (null)(null)ATNLENVAL."
832 [161]S$:[139]S$[179][177]" "[167]832
833 [153][199](147)
834 [153]:[153]:[153]:[153]:[153][166]2)[199](14)"SYS(null)AEHLE JETZT STR$EIN (null)EVEL."
835 [153]:[153][166]8)"(null)ASTE P FUER (null)ROFI"
836 [153][166]8)"(null)ASTE S FUER SCHWER":[153][166]8)"(null)ASTE M FUER MITTEL"
837 [153][166]8)"(null)ASTE L FUER LEICHT"
838 [153][166]8)"(null)ASTE E FUER VALINSTEIGER"
839 [161]S$:[139]S$[178]"P"[176]S$[178]"(null)"[167]:CT[178].9:CF[178]1:[137]845
840 [139]S$[178]"S"[176]S$[178]"(null)"[167]:CT[178]1.2:CF[178].8:[137]845
841 [139]S$[178]"M"[176]S$[178]"(null)"[167]:CT[178]1.2:CF[178].5:[137]845
842 [139]S$[178]"L"[176]S$[178]"(null)"[167]:CT[178]1.6:CF[178].5:[137]845
843 [139]S$[178]"E"[176]S$[178]"VAL"[167]:CT[178]5:CF[178].5:[137]845
844 [137]839
845 [153]:[153]:[153]:[153]:[153][166]2)"(null)AEHLE JETZT STR$EINE (null)EIHE, VON 2 BIS"
846 [153][166]2)"19 ODER 0 FUER UNGEORTNET.":CR[178]0
847 [141]148
848 [139]S$[178]"1"[167]:CF[178].5:CR[178]10:[141]148
849 CR[178]CR[170][197](S$):[137]754
850 CO[178]11:CS[178]11:[141]147
851 [139]CL[177][178]3[167]:[153]:[153]" VALSTR$VAL SYSEMPFIEHLT:":[153]" (null)AEHLE EIN NIEDRIGERES (null)EVEL."
852 [139]CM[177][178]3[167]:[153]:[153]" VALSTR$VAL SYSEMPFIEHLT:":[153]" (null)EBE NOCH DIE"CX"'ER (null)EIHE."
853 CL[178]0:CX[178]0:CM[178]0:[129]N[178]0[164]9:CE(N)[178]0:[130]:[137]834
854 [128]